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% Bejmnts 

This simple serial RS-232-to- 
discrete-output application and 
driver, based on Texas Instruments' 
74LV8153, requires only a minimum 
of parts. The single-wire, RS-232 bit- 
compatible 74LV8153 supports an 
internal clock, auto-baud function, 
and output registers. 

Graphic control written in Visual 
Basic (VB) gives this implementation 
a Windows-based feel. The circuit is 
intended as a resource for bench- 
switch or power-supply controls. 



Referring to the schematic in Figure 

1 , it takes only a transistor (Q1 ), 

diode D1, and three resistors (R1, 

R2, and R3) to support the 

74LV8153 8-bit serial-to-parallel interface IC (U1). 



D2, C1 , C2, R4, and the 78L05 regulator (U2) supply power to Q1 , the transistor level shifter, 
and U1 directly from an RS-232 bus. Diodes D3 and D4 isolate pin 20, allowing a unique power- 
drive source up to 13.5 V, to drive the outputs. 

The 74LV8153 serial-to-parallel interface's protocol includes three address bits for selection of 
eight devices, providing up to 64 discrete outputs for each serial link. In this application, pins 2, 
3, and 4 are strapped, corresponding to AO, A1, and A2 for device address 000. The output 
drives may be defined as open collector or as active push-pull. Pin 6, OUTSEL, is strapped for 
its active push-pull output configuration. 

A VB executable provides a toggle-switch graphic, text display, and send control box, plus the 
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driver panel (Fig. 2) . Clicking the graphic toggles the switch set, modifies the displayed graphic, 
and copies the Boolean setting to an array labeled as toggle_array(), as shown in the Partial 
Code Listing. 

Clicking the "SEND" control box translates these stored values for DO thru D7, and 3-bit device 
address, AO thru A2, from the array into the 2-byte format required by the 74LV8153. It then 
displays the converted bytes in the text window and sequences them onto the RS-232 serial port 
and into the hardware shown in Figure 1 . The serial port defaults to Port 1 but may be 
respecified to Port 2 by asserting the Port Select toggle. 

The Partial Code Listing includes the algorithm that converts toggle_array bit values to the 
protocol needed by the SN74LV8153. The listing uses the passed toggle_array values and 
returns two character codes, B and C, which would be forwarded onto the serial bus. The full VB 
executable code (DB2144code.exe), as well as the code text listing (DB2144code.txt), are 
available in the online version of this article at www.elecdesign.com. 
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1 . Based on a Texas Instruments 74LV81 53, this simple circuit performs R$-232-ta-discrete 8-bit conversions. 

Figure 2 
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2. A Visual Basic program produces a graphic service panel for the 81 53 interface IC. 
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Begin VB . CommandButton 
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Begin VB . Pi ctureBox Dl 
Height 
Left 
Picture 
ScaleHeight 
Scalewidth 
Tablndex 
Top 
Width 

End 

Begin VB . Pi ctureBox D2 
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Begin VB . Pi ctureBox D5 
Height 
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Picture 
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End 

Begin VB . Pi ctureBox D6 
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End 

Begin VB . Pi ctureBox D7 
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End 
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End 
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End 

Begin VB. Label Label 11 
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End 
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End 

Begin VB. Label Label 8 
Caption 
Height 
Left 
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Top 

Width 

End 

Begin VB. Label Label 7 
Caption 
Height 
Left 
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Top 

width 

End 

Begin VB. Label Label 6 
Caption 
Height 
Left 
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Top 
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End 

Begin VB. Label Label 5 
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Height 
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Width 

End 

Begin VB. Label Label 4 
Caption 
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Height = 255 

Left = 1680 

Tablndex = 16 

Top = 1080 

Width = 255 

End 

Begin VB. Label Label 3 

Caption = "AO" 

Height = 255 

Left = 840 

Tablndex = 15 

Top = 1080 

width = 375 

End 

Begin VB. Label Label 2 

Caption = "Al" 

Height = 255 

Left = 480 

Tablndex = 14 

Top = 1080 

width = 255 

End 

Begin VB. Label Label 1 

Caption = "A2" 

Height = 255 

Left = 120 

Tablndex = 13 

Top = 1080 

Width = 375 

End 

Begin MSCommLib.MSComm MSComml 

Left = 4080 

Top = 1560 

_Version = 65536 

_ExtentX = 847 

_ExtentY = 847 

_StockProps = 

CDTimeout = 

CommPort = 1 

CTSTimeout = 

DSRTimeout = 

DTREnable = -1 'True 

Handshaking = 

inBufferSize = 1024 

inputLen = 

Interval = 1000 

NullDiscard = 'False 

OutBufferSize = 512 

ParityReplace = "?" 

RThreshold = 

RTSEnable = 'False 

Settings = "9600, n, 8,1" 

SThreshold * 

End 

End 

Attribute VB_Name = "panel" 
Attribute VB_creatable = False 
Attribute VB_Exposed = False 
| This provides octal discrete driver 

Defint A-z 
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Public Echo 



' Echo on/off flag. 
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DB2144code.txt 

'Public Cancel Send ' Flag to stop sending a text file. 

Dim indx As integer 

Dim togarray(12) As Boolean 

'Dim shared New/Port 

'Dim Shared NewBaud$, NewParity$ 

'Dim Shared NewData$, NewStop$ 

'Dim Shared NewShake 

Dim p 

Dim f 



Private Sub A0_Click() 
i ndx = 
toggl e 

if togarray(O) Then 

AO. Picture = Pi cturel. Pi cture 

Else 

AO. Picture = pi cture2 . Pi cture 

End If 
End Sub 

Private Sub Al_Click() 
indx = 1 
toggle 

If togarray(l) Then 

Al. Picture = Pi cturel. Pi cture 

El se 

Al. Picture = pi cture2 . Pi cture 

End If 
End Sub 

Private Sub A2_Click() 
indx = 2 
toggl e 

if togarray(2) Then 

A2. Pi cture = Pi cturel. Pi cture 
Else 

A2. Pi cture = pi cture2 . Pi cture 
End if 
End Sub 



Private Sub Commandl_Cl i ck() 
On Error GoTo ErrorHandler 
If Picture3. visible Then 

If MSComml.CommPort <> 1 Then 
If MSComml. PortOpen Then 

MSComml. PortOpen = False 
End if 

MSComml. PortOpen = False 
MSComml.CommPort = 1 
End If 
El se 

If MSComml.CommPort <> 2 Then 
If MSComml. PortOpen Then 

MSComml. PortOpen = False 
End If 
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DB2144code.txt 
MSComml. PortOpen = False 
MSComml. CommPort = 2 
End if 
End if 

MSComml. Settings = "4800, N, 8,1" 
If MSComml. PortOpen = False Then 

MSComml. PortOpen = True 
End If 
B = 

For i = To 2 

If togarray(i) Then 
B = B + (2 a i) 

End If 
Next i 
A = 

For i = To 7 

If togarray(i + 3) Then 
A = A + (2 a i) 

End if 
Next i 

C = 1 + 2 * B + 16 * (A And &HF) 
B = 1+ 2*B+(A And &HF0) 

Textl.Text = Hex(C) & "H " & Hex (B) & "H on PORT " & Str(MSComml.CommPort) 
1 send the 2 bytes of data 
MSComml. Output = Chr(c) 
MSComml. Output = Chr(B) 
Exit Sub 

ErrorHandler : ' Error-handling routine. 

Textl.Text = "Error opening PORT" 
End Sub 

Private Sub Command2_Cl i ck() 
End Sub 

Private Sub D0_Click() 
indx = 3 
toggl e 

If togarray(3) Then 

DO. Picture = Pi cturel. Pi cture 

Else 

DO. Picture = pi cture2 . Pi cture 
End if 
End Sub 



Private Sub Dl_click() 
indx = 4 
toggl e 

If togarray(4) Then 

Dl. Picture = Pi cturel. Pi cture 
Else 

Dl. Picture = pi cture2 . Pi cture 
End If 
End Sub 

Private Sub D2_Click() 
indx = 5 
toggl e 

If togarray(5) Then 

D2. Pi cture = Pi cturel. Pi cture 
El se 

D2. Picture = pi cture2 . Pi cture 
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End If 
End Sub 



Private Sub D4_Click() 
indx = 7 
toggl e 

If togarray(7) Then 

D4. Picture = Pi cturel. Pi cture 

Else 

D4. Picture = pi cture2 . Pi cture 
End If 
End Sub 



Private Sub D5_click() 
indx = 8 
toggl e 

If togarray(8) Then 

D5. Pi cture = Pi cturel. Pi cture 
Else 

D5. Pi cture = pi cture2 . Pi cture 
End if 
End Sub 



Private Sub D6_Click() 
indx = 9 
toggle 

If togarray(9) Then 

D6. Picture = Pi cturel. Pi cture 
Else 

D6. Picture = pi cture2 . Pi cture 
End If 
End Sub 



Private Sub D7_Click() 
indx = 10 
toggl e 

If togarray(lO) Then 

D7. Picture = Pi cturel. Pi cture 
Else 

D7. Picture = pi cture2 . Pi cture 
End If 
End Sub 

Private Sub Form_Load() 
Textl.Text = "Port 1 selected" 

End Sub 
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Private Sub Form_Termi nate() 

End 
End Sub 

Public Sub toggleC) 

togarray(i ndx) = Not (togarray(i ndx)) 
End Sub 



Private Sub VScrol 1 2_Change() 
End Sub 



Private Sub Pi cture3_Cl i ck() 
Pi cture3. visible = False 
Pi cture4. Visible = True 
Textl.Text = "Port 2 selected" 

End Sub 



Private Sub Pi cture4_Cl i ck() 
Picture4. visible = False 
Picture3. visible = True 
Textl.Text = "Port 1 selected" 

End Sub 
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